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>  A  need  exists  for  the  measurement  of  the  thermal  radiative  properties  of  materials, 
especially  in  the  infrared  region  of  the  electromagnetic  spectrum  at  moderate  to  high  temperatures. 
To  meet  this  need,  an  automated  apparatus  for  the  measiwement  of  the  normal  spectral 
emissivity  from  2-15  pm  in  the  temperature  range  of  50Cr  C  to  incandescence  has  been  designed, 
fabricated  and  tested.  The  integral  blockbody  method  was  chosen  whereby  a  metallic  foil  of 
ribbon  is  formed  into  a  tube  shape  and  is  heated  by  the  passage  of  direct  current.  The  system  - 
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~h)  is  described,  and  sources  of  error  are  briefly  ]  outlined.  Most  tnaterkls  used  jin  engineering 
T  systems  do  not  have  atomically  clean  surfaces  but  come  with  f‘as  is’!  surfaces!  Hence/  one 
needs  to  investigate  the  radiative  proper  ies  of  these  real  surfaces.  Results  of  the  measurement 
£■  ot  the  normal  spectral  eraissivity  of  an  ras  is”  tungsten  surface  from  2-6  -pm  at  700  C  and 
'ri>60jC  are  given.  The  present  data  is  compared  with  literature  values  on  annealed  tungsten 
samples.  These  results  demonstrate  that  the  present  system  functions  properly  and  will  provide 
a  valuable  tool  for  the  rapid  assessment  of  the  emissive  properties  of  materials. 
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COMPUTER-CONTROLLED  APPARATUS  FOR  THE  MEASUREMENT  OF 
THE  NORMAL  SPECTRAL  EMISSIVITY  OF  MATERIALS 


1 . 0  INTRODUCTION 

The  optical  properties  of  materials  at  elevated  temperatures 
have  received  greater  interest  in  recent  years  due  to  technolo¬ 
gical  advances  in  material  fabrication  and  the  search  for  alter¬ 
nate  energy  sources.  Experimental  data  characterizing  the  high 
temperature  optical  properties  of  materials  is  sparse,  and  hence 
a  need  exists  for  the  measurement  of  thermal  radiative  properties 
of  such  materials  especially  in  the  infrared  region  of  the  spec¬ 
trum  at  moderate  temperatures.  This  paper  discusses  one  such 
thermal  property,  namely  emissivity,  defined  as  the  ratio  of  the 
radiation  from  the  surface  of  a  material  to  the  radiation  from  a 
blackbody  at  the  same  temperature. 

The  method  of  DeVos  [1]  was  chosen  to  measure  the  normal 
spectral  emissivity  of  materials.  This  method  involves  the 
comparison  of  the  radiant  intensity  normal  from  a  sample  tube 
surface  to  the  radiant  intensity  from  a  blackbody  hole  in  the 
tube  wall.  Since  the  blackbody  and  the  sample  tube  are  essen¬ 
tially  at  the  same  temperature,  one  only  needs  to  take  the  ratio 
of  the  radiation  from  the  sample  surface  and  the  blackbody  to 
determine  the  normal  spectral  emissivity  of  the  sample. 

This  paper  describes  a  computer-controlled  apparatus  which 
has  been  designed,  fabricated  and  tested  to  measure  the  normal 
spectral  emissivity  of  materials  in  the  infrared  region  of  the 
spectrum.  Some  unique  features  of  the  emissivity  system  include: 
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1.  Blackbody  and  sample  form  a  single  unit  at 
essentially  the  same  temperature, 

2.  Vacuum  or  inert  atmosphere  to  eliminate  surface 
contamination , 

3.  Automatic  positioning  of  blackbody  and  wall 
images  on  entrance  slit  of  monochromators, 

4.  Automated  to  ensure  rapid  data  acquisition 
and  reduction, 

5.  Wide  temperature  range:  500°C  to  incandescence, 

6.  Broad  wavelength  range:  l-15ym, 

7.  Solid-state  IR  detectors  for  highest  sensitivity, 
and 

8.  Ease  of  interchanging  samples. 

The  present  system  was  designed  as  an  engineering  instrument 
for  the  rapid  assessment  of  the  emissivity  of  materials  with 
tungsten  foil  chosen  as  the  initial  material  to  test  the  oper¬ 
ation  of  the  system.  The  tungsten  foil,  while  99.95%  pure,  was 
not  annealed  and  all  results  presented  here  are  described  by  an 
"as  is"  tungsten  surface.  The  normal  spectral  emissivity  data 
for  the  "as  is"  tungsten  surface  in  the  2-6ym  region  was  approxi¬ 
mately  10%  higher  than  annealed  samples.  Most  materials  are 
supplied  without  any  surface  preparation  and  data  on  the  radia¬ 
tive  properties  of  "as  is"  surfaces  will  provide  useful  inform¬ 
ation  for  the  rapid  analysis  of  such  materials. 

2.0  DESCRIPTION  OF  EMISSIVITY  APPARATUS 

The  present  system  consists  of  the  sample,  sample  chamber, 
sample  positioner,  optical  system,  and  data  processing  system. 
Figure  1  shows  a  schematic  of  the  complete  system.  Each  section 
will  be  described  in  detail. 

2 . 1  Sample 

The  test  sample  was  fabricated  from  a  one-mil  unannealed 
tungsten  foil  supplied  by  the  A.D.  Mackay  Company  with  a  purity 
content  of  99.95%.  The  tungsten  ribbon  was  then  formed  into  a 
triangular  tube  following  the  method  of  DeVos  except  that  the 
blackbody  hole  was  1.50mm  in  diameter  as  opposed  to  a  .3mm 
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diameter.  The  error  introduced  reduced  the  blackbody  emissivity 
from  unity  to  .975  [2].  The  blackbody  tube  dimensions  were: 


Length:  15cm 

Triangular  Cross  Section:  0.6  x  0.6  x  0.6cm 
Wall  Thickness:  25u 

Surface  roughness  measurements  made  at  NRL  [3]  on  the  "as 
is"  tungsten  foil  indicated  an  average  roughness  of  one  micron 
and  waviness  amplitude  of  15  microns.  Auger  electron  spectro¬ 
scopy  (AES)  was  used  to  determine  the  thickness  and  composition 
of  any  possible  surface  contaminant.  The  results  showed  that  the 

O 

first  200A  is  composed  of  a  mixed  tungsten  carbide-oxide  layer 

O  O 

and  after  200A-500A  the  sample  is  mainly  tungsten.  A  thin  layer 

o 

of  500A  or  less  does  not  influence  the  surface  emission  proper¬ 
ties  of  the  tungsten  sample  appreciably.  Therefore,  the  "as  is" 
tungsten  surface  was  virtually  contaminant  free  but  not  optically 
smooth . 

2 . 2  Sample  Chamber 

The  design  of  the  sample  chamber  is  shown  in  Figure  2.  The 
outside  body  consists  of  standard  stainless  steel  vacuum  compo¬ 
nents.  The  chamber  was  evacuated  using  an  11  liter  per  second 
ion  pump  with  an  ultimate  pressure  of  10~8  Torr.  The  chamber 
pressure  never  exceeded  10" 7  Torr  during  any  of  the  reported 
runs.  Figure  2  also  shows  the  connections  of  the  tubular  sample 
to  the  vacuum  feedthroughs.  The  vacuum  feedthroughs  were  oxygen 
free  high  conductive  (OFHC)  copper  rods  one-fourth  inch  in  diam¬ 
eter  which  have  a  maximum  current  handling  capability  of  150  amps. 
These  rods  were  water-cooled  which  allowed  measurements  of  the 
tungsten  sample  at  incandescent  temperatures.  The  tungsten  tube 
was  first  capped  on  both  ends  and  then  tantalum  tabs  were  spot 
welded  to  tungsten  rods  one-eighth  inch  in  diameter,  which  in 
turn  fitted  into  set-screw  sockets  on  the  copper  feedthroughs.  A 
tungsten  spring  which  was  needed  to  absorb  the  thermal  expansion 
of  the  tube  was  spot  welded  to  the  lower  end  of  the  tube.  A 
platinum,  platinum  -  10%  rhodium  thermocouple  was  placed  down 
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Fig.  2  —  View  of  sample  chamber 


into  the  center  of  the  tube  to  record  the  tube  temperature  below 
incandescence.  The  thermocouple  leads  were  insulated  from  the 
tube  by  alumina  tubing.  A  Hewlett  Packard  (HP)  power  supply 
rated  at  10  volts  and  100  amps  was  used  to  control  the  tempera¬ 
ture  of  the  sample  from  room  temperature  to  1300°C. 

2.3  Sample  Positioner 

In  order  to  measure  the  intensity  from  the  blackbody  hole 
and  the  wall  the  sample  chamber  had  to  be  aligned  relative  to 
the  monochromator  entrance  slit.  The  sample  chamber  was  mounted 
on  vertical  and  horizontal  linear  translation  stages  as  shown  in 
Figure  3.  Direct  current  torque  motors  were  incorporated  into 
these  linear  stages  by  means  of  universal  joints,  and  the  limit 
switches  were  added  to  restrict  the  total  linear  translation. 
Relays  were  placed  in  between  the  motor  power  supplies  so  that 
the  computer  was  able  to  control  movement  of  the  translation 
stage  in  either  direction  by  controlling  the  relay  on/off  times. 
In  this  manner  linear  displacements  as  small  as  one  mil  could  be 
achieved.  The  fact  that  the  exact  position  of  either  translation 
stage  was  unknown  caused  no  concern  since  the  intensities  of  the 
hole  and  wall  are  the  important  parameters  and  the  lock-in  ampli¬ 
fier  signal  is  used  in  a  feedback  mode  to  determine  these  posi¬ 
tions.  The  blackbody  hole  position  is  determined  coarsely  by 
aligning  the  spherical  mirrors  of  the  entrance  optics  and  deter¬ 
mining  a  relative  maximum  on  the  lock-in  amplifier  panel  meter. 
The  computer  then  does  fine  adjustments  to  locate  the  blackbody 
hole  more  precisely. 

2.4  Optical  System 

In  order  to  image  the  tube  on  the  monochromator  entrance 
slit,  focusing  optics  consisting  of  concave  mirrors  were  used  as 
shown  in  Figure  1.  Reflective  optics  have  a  dual  advantage  over 
refractive  optics  in  that  the  intensity  transmitted  is  higher  and 
chromatic  aberration  is  absent.  The  spherical  mirrors  were  used 
close  to  axis  to  minimir  ^sti  .atism  and  coma,  and  produced  an 


image  of  the  tungsten  tube  on  the  entrance  slit  with  a  2.0  magni¬ 
fication.  The  arrangement  was  such  that  the  optics  remained 
stationary  and  the  sample  chamber  was  adjusted  for  wall  and 
blackbody  sampling.  The  slit  on  the  monochromator  was  fitted 
with  a  circular  diaphragm  in  order  to  make  the  image  of  the 
blackbody  hole  larger  than  the  diaphragm  opening  which  enabled 
the  monochromator  to  sample  equal  areas  of  hole  and  wall.  The 
monochromator  was  a  Spex  one-half  meter  (f/7)  and  with  proper 
change  of  grating  covers  the  2-15ym  region.  Filters  were  used 
to  eliminate  higher  orders  from  the  grating  and  scattered  light. 

A  potassium  bromide  (KBr)  window  on  the  sample  chamber  allowed 
high  IR  transmission  in  the  2-15vim  range.  A  Barnes  pyroelectric 
detector  was  initially  used  since  it  had  a  flat  spectral  response 
over  the  entire  wavelength  region  but  it's  sensitivity  was  not 
sufficient  for  low  temperature  (<700°C)  measurements.  Two  solid- 
state  IR  detectors  which  increased  the  sensitivity  by  a  factor  of 
ten  were  mated  to  the  system.  An  inSb  detector  with  a  100Hz 
chopping  frequency  covered  the  2-5. 5ym  region  while  a  HgCdTe 
detector  with  a  1000Hz  chopping  frequency  covered  the  5.5-14ym 
range. 

2.5  Data  Processing  System 

The  signal  from  the  solid-state  IR  detector  was  processed 
using  a  PAR  Model  186  Lock-In  Amplifier  and  a  HP  9825A  desk-top 
computer.  A  reference  signal  needed  for  synchronization  was 
sent  to  the  lock-in  amplifier  by  a  PAR  Model  192  variable  fre¬ 
quency  chopper.  The  HP  9825A  computer  automatically  adjusted  the 
range  setting  on  the  lock-in  amplifier  to  give  the  best  signal 
on  the  appropriate  scale.  The  values  recorded,  corresponding  to 
wall  and  hole  intensities,  were  compiled  by  the  computer  and  the 
ratio,  i.e.  emissivity,  was  calculated  and  plotted  versus  wave¬ 
length  in  real  time.  In  addition,  statistical  error  analyses  on 
wall  and  hole  intensities  were  calculated  and  error  bars  were 
plotted  on  the  emissivity  versus  wavelength  plots.  The  HP  9825A 
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controlled  all  movements  of  the  sample  chamber  and  the  wavelength 
position  of  the  monochromator. 

3 . 0  MEASUREMENT  PROCEDURE 

3.1  Emissivity  Measurements 

The  first  step  in  this  procedure  is  the  fabrication  of  the 
tubular  sample  followed  by  the  mounting  of  this  sample  in  the 
vacuum  chamber.  The  blackbody  hole  is  aligned  to  be  normal  to 
the  KBr  viewing  window.  The  system  is  sorption-pumped  down  to 
*10“ 3  Torr  and  then  the  ion  pump  is  engaged  to  bring  the  pressure 
down  into  the  10"8  Torr  range.  The  forepump  system  is  then  dis¬ 
connected  and  the  system  is  baked  out  to  125°C.  While  the  stain¬ 
less  steel  chamber  and  sample  can  withstand  much  higher  bakeout 
temperatures, the  KBr  window  is  limited  to  150°C,  therefore  125°C 
was  taken  as  a  safe  bakeout  temperature.  The  system  was  given 
about  three  weeks  of  temperature  conditioning  to  allow  the  sample 
to  reach  1000°C  while  maintaining  a  vacuum  of  no  less  than  10~7 
Torr.  All  runs  were  taken  in  the  10“7  -  10~8  Torr  pressure  range. 

The  initial  step  in  acquiring  spectral  emissivity  data  was 
to  run  the  HP  9825A  computer  with  the  control  program  shown  in 
Appendix  A.  The  wavelength  counter  and  the  motor  positioners  of 
the  sample  chamber  were  initialized  at  the  coordinates  of  maxi¬ 
mum  signal  from  the  blackbody  hole.  Thereafter,  the  computer 
performed  all  the  functions  needed  to  produce  the  emissivity 
plots.  The  first  step  is  the  location  of  the  blackbody  hole 
using  a  sampling  of  three  consecutive  points.  The  computer 
moves  the  horizontal  and  then  the  vertical  positioner  in  16-mil, 
4-mil,  2-mil,  and  1-mil  steps  while  finding  the  maximum  of  three 
consecutive  points.  When  it  has  sufficiently  located  the  black¬ 
body  hole,  the  computer  averages  the  detector  signal  for  200  data 
points  and  then  samples  nine  positions  about  the  maximum  sepa¬ 
rated  by  1  mil.  These  points  are  recorded  and  averaged  as  the 
intensity  of  the  blackbody  hole.  The  positioners  then  move  to 
upper  and  lower  wall  positions,  approximately  120  mils  from  the 
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blackbody  hole,  and  samples  nine  upper  and  nine  lower  wall  values. 
An  average  wall  value  is  calculated  along  with  its  standard  devi¬ 
ation.  The  results  are  printed  out  and  a  point  is  plotted  on  the 
emissivity  versus  wavelength  graph  in  real  time.  The  computer 
then  moves  the  wavelength  counter  to  the  next  wavelength  position, 
repeats  this  procedure,  and  continues  until  the  wavelength  region 
of  interest  is  covered.  In  this  way  a  quick  estimate  of  any 
significant  deviation  of  the  system  can  be  analyzed  before  pro¬ 
ceeding  further.  The  data  is  then  stored  on  tape  in  order  to  be 
used  for  additional  analyses. 

3.2  Temperature  Measurement 

The  temperature  of  the  sample  is  determined  by  the  platinum, 
platinum  -  10%  rhodium  thermocouple  for  temperatures  below  incan¬ 
descence  and  a  precision  disappearing  filament  micro-optical 
pyrometer  for  temperatures  above  incandescence.  The  thermocouple 
is  located  inside  the  sample  tube  and  the  optical  pyrometer  is 
focused  on  the  blackbody  hole.  In  the  region  of  incandescence, 
the  two  methods  agreed  to  within  10°C.  The  pyrometer  was  cali¬ 
brated  against  standards  traceable  to  the  National  Bureau  of 
Standards  and  the  maximum  uncertainty  is  +  3°C.  All  readings  on 
the  pyrometer  were  corrected  for  absorption  of  the  KBr  window 
and  the  plane  mirror. 

4.0  PRECISION  AND  EVALUATION  OF  EMISSIVITY  APPARATUS 

An  absolute  estimate  of  the  performance  of  the  present 
system  could  not  be  made  due  to  the  lack  of  suitable  emissivity 
standards;  however,  estimates  of  the  accuracy  and  precision  of 
the  apparatus  were  taken  from  sample,  optical,  and  electronic 
sources  of  error. 

4 . 1  Sample 

The  circular  hole  in  the  tungsten  tube  did  not  follow  DeVos 
criteria  exactly  and  was  not  therefore  an  ideal  blackbody.  The 
blackbody  correction  is  a  function  of  wavelength  and  temperature 
but  the  error  as  discussed  previously  amounted  to  no  greater  than 
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2.5%.  Due  to  the  small  thickness  of  the  tube  no  correction  was 
needed  for  the  difference  in  temperature  between  the  outer  and 
inner  surfaces  of  the  tube.  Since  temperature  gradients  along 
the  longitudinal  axis  of  the  tube  in  the  vicinity  of  the  black- 
body  hole  were  less  than  3°C,  this  error  was  less  than  2.3%. 

4 . 2  Optical 

Since  the  optical  path  for  the  blackbody  and  wall  is  identi¬ 
cal,  no  error  due  to  the  absorption  of  radiation  is  possible. 

The  calibration  of  the  wavelength  range  using  the  mercury  green 
line  was  approximately  +  . 04um.  Scattering  within  the  optical 
system  has  been  shown  to  be  minimal  by  other  authors  using  simi¬ 
lar  designs  [4,5]. 

4.3  Electronic 

The  measurement  of  the  emissivity  requires  the  ratio  of  the 

wall  intensity  to  the  blackbody  hole  intensity.  The  precision 

of  this  measurement  is  controlled  by  the  signal-to-noise  ratio 

of  the  data  processing  system.  To  calculate  the  precision,  six 

values  at  2ym  and  six  values  at  6pm  at  700°C  were  taken  and  the 

# 

precision  was  +  .002  and  +  .001,  respectively.  All  runs  reported 
represent  an  average  of  at  least  three  trials. 

4 . 4  Performance  Summary 

Considering  all  the  systematic  errors  and  the  precision 
involved  in  computing  a  particular  data  point  as  discussed  above, 
the  overall  evaluation  of  the  present  system  is  better  than  +  5% 
with  the  major  uncertainty  in  the  non- ideal  blackbody  hole. 

5.0  RESULTS  AND  CONCLUSIONS 

As  a  test  for  the  present  system,  the  normal  spectral 
emissivity  of  the  "as  is"  tungsten  surface  at  temperatures  of 
700°C  and  900°C  from  2-6um  is  shown  in  Figure  4.  This  tungsten 
sample  was  not  mechanically  polished  or  annealed,  but  its  surface 
was  cleaned  using  acetone,  methanol,  and  distilled  water.  The 
expected  increase  in  emittance  with  temperature  at  wavelengths 


greater  than  the  X-point  is  clearly  shown.  Figure  5  shows  the 
comparison  of  the  emissivity  of  the  "as  is"  tungsten  surface  at 
900°C  with  previously  reported  data  [5,6]  on  annealed  tungsten 
surfaces  in  the  2-6um  region.  The  error  bars  on  the  graph  derive 
mostly  from  the  statistical  variations  in  the  wall  averaging. 
These  results  show  that  the  difference  between  specially  prepared 
or  annealed  tungsten  and  "as  is"  tungsten  is  of  the  order  of  10%. 

The  present  automated  apparatus  which  was  designed  to  measure 
the  normal  spectral  emissivity  of  materials  was  successfully 
tested  and  its  systematic  errors  identified.  It  is  shown  to 
provide  a  valuable  tool  for  the  rapid  assessment  of  the  spectral 
emissivity  of  materials.  Its  future  use  will  involve  the  inves¬ 
tigation  of  selective  emitter  coatings  and  the  effect  of  oxidation 
on  the  normal  spectral  emissivity  of  materials.  This  paper 
presented  only  the  2-6ym  spectral  data.  The  publication  of  the 
6-15pm  data  is  planned  in  the  near  future. 

6 . 0  AC!  'V  MfLEDGEMENTS 

The  authors  would  like  to  thank  Mr.  H.  Mellace  for  his  help 
in  the  construction  of  the  tungsten  tube,  and  Mr.  J.  Bryant  for 
the  sketches  used  in  this  paper.  Funding  support  for  this  pro¬ 
ject  was  provided  by  the  Naval  Electronic  Systems  Command 
(ELEX-615) . 


13 


NORMAL  SPECTRAL  EMtSSWtTY 


APPENDIX  A 

The  computer  program  which  controls  the  emissivity  apparatus 
and  calculates  the  normal  spectral  emissivity  uses  HPL,  a  high 
level,  formula-oriented  language.  While  most  of  the  program  is 
self-explanatory,  some  special  features  in  the  automation  process 
need  further  explanation.  The  control  of  the  motorized  posi¬ 
tioners  takes  place  through  relays  in  the  multiprogrammer  of  the 
HP  9825A  and  subroutine  SOURCE  MOVER  controls  20-mil,  10-mil, 
and  1-mil  movements  of  the  horizontal  and  vertical  positioners. 
Subroutines  SETUP  WAVELENGTHS  and  WAVELENGTH  MOVER  control  the 
initialization  and  movement  of  the  wavelength  drive  of  the  mono¬ 
chromator.  Subroutine  PEAK  FINDER  adjusts  the  positioners  until 
the  maximum  signal  is  found  on  the  lock-in  amplifier  which  corre¬ 
sponds  to  the  blackbody  hole  intensity.  Subroutine  RANGER 
automatically  adjusts  the  range  scale  on  the  lock-in  amplifier 
in  order  to  determine  the  most  appropriate  scale  and  then  sub¬ 
routine  READER  takes  the  values  from  the  lock-in  amplifier.  The 
subroutine  AREA  SAMPLER-WALL  goes  to  upper  and  lower  wall 
positions  and  records  the  average  wall  intensity.  Subroutine 
PLOT-PEAK  and  WALL  AREA  allow  the  plotting  of  the  emissivity 
versus  wavelength  in  real  time  along  with  error  bars  based  on  the 
standard  deviation  of  the  measurement.  A  copy  of  the  complete 
program  is  listed  below. 
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0: 
1 : 


4: 


9  s 

10 
1  1 
12 

13 

14 

15 

16 
17 
IS 
19 

'-•VI 

21 


<Ls> 

24 

25 
2d 
27 

DO 

29 

33 


34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 
58 

51 

52 

53 

54 

crcr 


dsp  “EMISSIV ITY  MEAS.  i£-81  -t  0(  6“  *  c  1  r  7235  21-Mi?  wo.it  50*30 
d  1  im  DC  30  3  .  GC  30  J .  Rl  200  ]  -  SC  30  ] $  XI  50  3  »  VC  50  1 .  UC  75  3  .<  EC  75  1  >  PC  75  1  •  CC  75  3 
95b  “CONSTANTS" 

95b  "+++R2F  POINT" 

95b  "ALIGN -  FOCUS" 

9sb  "SETUP  WAVELENGTHS" 

*sb  “EMI S3 IV ITY  GRID" 
f  o r  l ~  1  t.  j  in*  ( <  r S 1  - r S @ ) / r S 2>  +  t 
95b  "F'LHK  FINDER" 

95b  “AREA  SAMPLER-PEAK" 

95 b  "AF'ER  SAMPLER-WALL" 
r72/r‘73.''RC  L  J  ■■  L I  L  J 

f  nt  1  >  12k >  “ WLGTH”  .  Sx .  "EM I SS"  »  Ox >  " BBS 1 ij (. n V )  “  »  8>; »  "WALL * nV >  "  5  w r ♦.  6. 
f  «t  £ .  f  1 6 .  £  >  f  1 5 . 4 »  f  1 7 . 0 .  f  1 5 . 0 
wrt  b.  2.  Wl  L  h  EC  L  3.  RC  L  3.  RC  L  3EC  L  3 

fxd  4  5  wrt  6."  “ *  < r 53+ r54 > / < RC L ]-CC L  J > -EC L  3 » "  +  " 

wrt  6 j  " . EC  L  3- < r53- r54 ) / < RC L  3+CC L  3 ) . " - " 

v  ('it  9)  6k!  wrt  6.9 
<  r53+  r54  > / *.  RC  L  3-CC  L  3  >  +SC  L  3 
< r53-r54>/<RC L  3+CC L  3  >+YC L  3 
9?b  "WfiVFI  FNGTH  MOVER" 

95b  "+++REF  POINT" 
next  L 

95b  “ PLOT- EM  I SSI VI TY  GRAPH" 

9£b  ‘PLOT-PEAK  &  WALL  AREA  GRAPHS" 
clr  7231 st p  5d?P  “Don’t  forget  to  ref" 


"+++REF  POINT" ! 

wrt  723 >  " OB »  7  ■  8 » 1  .•  1 1 » 1 »  T “  5  >_>o. i  t  2000?  wrt 

wrt.  723. “08. 7.6. IT "? wrt  723. "  IP.  2T" !  red 

if  r93>5! Jmp  5 

wrt  723  » " OB  .  7 >  3> 1 T " 

wrt  723. "TP. 2T" 5 red  72301 .  r93 

if  r93<3?  ’I’lP  -1 

w«  i  t  2500  >  w  rt  723  < "  08  *7>8>0T"5  wo.  i  t  250 

wrt  723> “OBi 7>  9» IT" 

wrt  723. “ IP. 2T " 5  rod  72301. r93 

if  r93>55onp  -1 

wrt  723.  "OB.7.9.0T" 


wrt 

72'-*  ? 

08 . 7 . 

6 . 0  T " 

wrt 

723. " 

OB.  7. 

7. IT"? wrt  72 

3  j  " 

IP.  2T" 

?  red 

if 

r93<5‘- 

.’nr*  5 

wrt 

i 

08.7. 

11. IT" 

wrt 

723.  “ 

IP.2T 

“5  red  723*3 1  • 

r?  3 

if 

r93>5? 

J  nr.  - 

1 

i*  i>rt 

723 «  "  OE'  <7.11 

?  OT 

?  WCL  i  t 

250 

wrt 

723. " 

08.7. 

10. IT" 

♦ 

wrt 

723. " 

IP.2T 

"5  red  72301. 

r93 

if 

r93  5? 

.*  nr  - 

1 

wrt 

723. " 

OB  >  7 . 

1*3.  OT" 

wrt 

{  £  -2>  9 

OB.  7. 

7.0T" 

7 2  3  >  "08  .  7  * 
722*31  .  r93 


7 


301 » r93 


ret 


S'  •  0  ?  1 1  ?  0  >  T 
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"RANGER” :  wrt  "P‘ii 3 >  "OB'  ?  >  lei;  IT 

"  r  e  s  e  t  :  wrt  723)  "IP*  2T"  !  red  72301  ?  r935  1*93/  1 0*  r  93  ■  U*M 

i  f  abs  '■  r9 3) <  .  25  H- 1  *N 

if  a bs <  r93 > .85N+1  *N 

if  N>2'1  •'  usp  "out  of  ranee" is* p 

if  H<25 N+l *NS  ?to  "set" 

if  M-N-0 5  tT.o  "set" 

DC  N  3=C 5  im  <C/lS>*r05  int  <  <C-16rP)/8)*r  1 

int  ( t C-16 rG-8r  1  )/4>*r25  int  < (C-1  orS-Sr  l~4r2>/2)*r 3 

i  nt  <  C- 1 6  rO-8  r  1  -4  r2-£  r3  >  •>  r4 

frit  t)5fl.B5fxd  05dsP  r@?  r  1  ?  r2>  r3)  r4 

for  I=£>  to  4 

if  rl =9? 1  * rl 5 jmp  2 

if  rl=15@*rl 

next.  I 

wrt  i’23 1 "  OB  ?  7“  >  0>  r0>  1 »  rl  •  2*  r2<  3?  r3  >  4  •  r4» "  T"  5  wait  5000?  eto  “reset " 
"set "  s  wrt  723?  “0S>  7?  1 2 >  wT“  5  re  t 

"READER"  s  beep?  0*r905  0*r91 5  wrt  723)  ”0B?7)  12?  IT” 

for  1  =  1  to  2005  wrt  723?  ”  1P»  2T"  5  red  72301 1  AC  I  35  r90+fl!  I  !■'  18*r905  next  I 
r'30/200-f  »'30 

for  1  =  1  to  2805  <fi!  I  3_r90>  t2+r‘?l*r  91 5  next  I 
r<  r9 1/209)'* r91 5  wrt  723 » "08)7?  12?  0T“  5  ret 


"CONSTANTS"! 

S*DC  1  ]5 10@*Gt  1  35 <5*D!  2  3520©*G!  2  35  7*1)1  3  35  509*GI  3  3 
9*DC  4  35  1000*GC  4  35  10*®!  5  35  2000*01  5  3511*®!  6  3<  500U*G!  €■  3 
13*DC  7  3!  iG000*GC  7  35  14*DC  S  3!208©O*G!  C  3!  15*DC  9  35  50888  G[ '?  3 
17*®!  10  3!  1»5*G!  10  3!  1S*D!  1  1  35  2e5*G!  1  i  33 19*®1 12  3?5e5*GI  12  3 
21*DI  131?  1«S*GI  13  35  22*®!  14  3!2«**GI  14  352?*®!  15  35  !»:6*GI  15  3 
25*DC  lfc"  35 1  e7*GI  IS  3!  2S*DC  17  3!  2e7*GI  17  35  27*®!  13  35 5*7*Gi  13  3 
29*BI  19  3!  1  e8*GI  19  3! 30*BI 20  3! 2*S*GI 20  35 31  *»! 21  355e3*GI2l  3 
ret 


"SOURCE  M0VER-26R": 
if  H>0 !  -9  =  b  "ri  ?ht  20" 
if  H<05esb  "left,20" 
if  V<05esb  "up20" 
if  V>05?sb  "down20" 
ref 

" r i 9ht £0” ! f or  1  =  1  to  H 

•  wrt  7£3> ”0B) 7) 3) IT” 5 wait  2000! wrt  723« "OB) 7* 3? 0T" 5 wai *  2505 next  15  ret 
i  "left20"tfor  1=1  to  -H 

i  wrt  723) "0B)7)9) iT"5wait  2180} wrt  723) "OB*7»9»0T"* wait  25Q5next  15  ret 
"up20" s  for  1  =  1  to  “V 

;  wrt  723) “OB? 7) 10? IT" 5 wai t  22405 wrt  723> "0B>7« 18?0T"5wait  356* next  15 r 
i  "down28"! f or  1=1  to  V 

'  wrt  723>  "OB*  7)  1 1  *  IT"  5  wai  t  22S05wrt  723»  "OB)  7<  1 1 « 0T”  5  wait  2505  next  I*r 


ill 


“SOURCE  MOVER- 1 OR" : 


112 

H'  h 

,0'?sb  “ri-ehtlO" 

1 1 3 

if  H 

<GS  asb  "left  10“ 

114 

if  7 

'  O’  ?=.b  "up  10" 

115 

if  V 

■  05  i  =  b  "down  10" 

* 

116 

ret. 

117 

"  r  i 

ht IQ" s tor  1=1  to  H 

1  1  3 

ii.t  r*  t. 

723s  "03  j  7  s 3)  1 T" 5  wot i t  1040? wrt  723 

s  "  05  s 

7> 8»0T“ 5 wait  2 

50 

5  rn= 

xt 

is 

ret 

If? 

**  1  *f 

t  1 0  “  l  f  o  r  I  - 1  t.  o  *H 

126 

wrt 

723s  "OBs  7  s  9s  1T‘">  wa  i  t  1 090 5  wrt  723 

s  "OBs 

7  ? '? 

s  0  T  '  ?  w  a  it  2 

50 

5  rit 

xt 

Is 

ret 

121 

"  UP  1 

0"s»‘or  1  =  1  *0  -V 

1 22 

wrt 

723s “OBs 7» 10s  IT" 5 wai t  11 20* wrt  72 

3  s  “OE 

?  •’  4 

10s  OT"  s  via  1 1 

505 

n  ex 

t 

1 5  ret. 

123 

" down  10“  s  f  or  I  - 1  to  V 

124 

wrt 

723> “0Bs7> 11s 1T"J wait  ll40*wrt  72 

3s  "OB 

9  7  9 

1 1 s  0T " 5  wa 1 1 

2 

505 

next 

I  s  ret 

125 

" 

" 

126 

** 

.. 

" 

127 

" 

"  t 

123 

" 

“ 

129 

*• 

" 

ISO 

“SET 

OF  WAVELENGTHS "  ’• 

131 

enp 

"  8 1 a rt  wave  1  emt h  < u« >=*? "  <  r8B 

132 

enp 

"En d  w a  v e 1  e n  a t  h  <  u » >  =? "  s  r 3 1 

1  o 

enp 

“Mace length  interval  cun )=?".<  r32 

134 

it 

30 >=2.1  and  r81<=45  no  "2.1-4" 

135 

i  i  i 

30>=3.5  and  r81<=65 ?to  "3.5-6“ 

136 

i  ( 

30>=6  and  rUl<=12J?tc  "6-12" 

137 

if  r 

30 >  =  12  and  rSl<  =  155  no  "12-15" 

133 

9tO 

"NO run" 

139 

"2.1 

-4": spc  5  spc  sprt  "Heed  a  rat  in-?  ft 

I50e 

rnV* 

140 

■s- 

5  i-pc  Sprt  "Need  f  i  lterftLO20Q7-8" 

141 

,f  r.L  •• 

142 

”3.5 

-6": spc  S  spc  5 5 pc  sprt  "Meed  -sratine# 

150e/nn" 

143 

3  PC 

s spc  sprt  "Need  f  i  Her  IN. 03392-9" 

144 

84  r  3 

3? i to  "ok" 

145 

"6-1 

2": spc  *src  s.;pc  sprt  "Need  aratin?#  7 

5:j/ 

i*UA  " 

146 

3  PC 

Irpc  sprt  "Heed  f  i  lttr#L06093-9" 

147 

16-tr 

335 no  "ok" 

143 

"12- 

15" * rpc  s  spc  Sspc  sprt  "Need  jra <■ 

'haft 

75=3 

149 

3  PC 

!:;pc  Sprt  "Need  f  1  lte t'4L10832-9" 

150 

I6*r 

33  5  -3 to  "ok" 

151 

"  NOr 

un" !  SPC  f  RPC  sPrt  "No  »irvei«  fi’t 

•:  r  3  r 

•3.  i 

in  for  this 

r 

a  r,  ■? 

:*•  M  * 

.  -s  p£ 

152 

beer. 

5  dsp  "  RUN  STOPPED" 5  wait  9 

995  d- 

P  ” 

"  5  Mi.'.  X  t 

9 :  <')  p 

0 

153 

"ok" 

: f  ;d  05cHp  "Set  counter  to  "sieoUOrSG/ 

r33 

;  r  so  Hit  n?s 

tf> 

154 

MSI 

155 

" 

** 

156 

" 

* 

157 

"MflV 

EI.ENGTH  HOVER": 

153 

mi  r  t 

73  3  s  "  WF  s  6 .  .2 s  2503  s  1”  <  OP  s  6  "  s  1  e6  r‘ 3 2  t 

’■  3  *  "  T 

"?d 

sp  "flow  in 9 

w  0. 

enn-’n 

" 

159 

t  o  r 

1  =  1  to  105 wait  2. 6eSr32- r83! next 

1 5  di  P 

** 

" 

160 

HC  L  1+  r32*Wt  L+l  Jfwcit  260C 

161 

ret 

1621  " 

” 

163 

** 

• 

18 


> “ ? StP 


1 6 

4 

"EMI 

SSIV 

I  TV 

GRI 

p" 

: 

16 

C* 

..1 

int  < 

r80) 

- 

1  >  r 

35? 

in 

t  <  r  3 

i  :> + 1 

•>r86 

16 

f  xd 

3  ?  ds 

P 

"  C; 

et 

PI 

07"? 

r05? "  > 

!  s 

tp 

16 

i 

f  xd 

3?  ds 

P 

" 

get 

P2 

>  cl?  " 

j  r‘8 

6  ? 

16 

$ 

prt 

r85? 

y 

Ob  5 

3  Cl 

r 

35  j  r 

86?  0 

?  1 :  t  xd 

0 

16 

9 

xax 

O  ?  1  ? 

r 

85? 

r86 

?  i 

5  p  1 1 

< rS5+r86> 

/  £*  Ji 

17 

G 

csiz 

9 

1  ?  0 

?  lbl 

"UAVELENGTH" ?  f 

xd 

1 

1.7 

1 

yax 

r85? 

1  ?  9 

?  1  f 

i? 

Pit. 

r35- 

.  5  ? .  5  ? 

lie 

s  i 

17 

lbl 

.“EMI 
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I  TV 

M 

17 

Pit 
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?  p  1 1 
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5  Pit  r 
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17 

4 

ret 
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176 
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1  “7  0 
X  I  O 

1 79 

180 
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182 

1 83 

184 

185 
1 06 
137 
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"SOURCE  MOVER-1 R“ : 
if  H>0 5  ?sb  "eighth" 
i f  H< 0 ?  jib  " left!! " 
if  V<0!?sb  " UF'V" 
if  V>05?sb  "downV" 
ret 

r i?htH" : wrt  723? "0B?7?8? IT" ? wait  184H? wrt  723 > “OB? 
leftH":wrt  723? "OB? ?» 9» IT” > wait  -109H?wrt  723?  "OB? 
upV " : w rt  723 >  " OB ? 7 ? 10? IT"?  wa it  - 1 1 2V ?  w rt  723 ? " OB ?  7 
downV "  w  rt  723  ?  "  OB  ?  7  ?  11?  1 T  “  5  wa  it  1 14V  5  w  r  t  723  ?  "  OB  ? 


'  PEAK  F I NDER "  ■  1 6*  r 63  ?  8+r64  S  0>  r98  5  8+  r99 
f  fit  8?  3f  10.  0?  4f  7.  3 
for  0=1  to  3 

r63*HlrS4+VJ«b  "SOURCE  M0VER-1R" 

■gsb  RANGER 

wait  2900? usb  "READER" 

GC  H  Ir90+r62 > -2r63+H5 -2r64*V?  <?sb  "SOURCE  M0VER-1R" 

?ib  "RANGER " 

wait  2O00?  92-b  “READER" 

GCN3r90+r685 r63>H? r64>V5  gsb  "SOURCE  MOVER- 1R" 

•?sb  "RANGER" 

wait  2000?  95b  "READER" 

Gt N 3r90>r61 

f  xd  0  ?  ds  p  r98  ?  r99  ?  i  f  max  (  r 60  ?  r 6 1  ?  r6'J >  =  r6 1  ?  .j  itip  1 3 
i  f'  max <  r 60 ?  r 6 1  ?  r 62 )  =  r 60  5  j rip  2 
j«p  5 

-r63>H?  -r64>V?  gsb  "SOURCE  MOVER- 1R” 

r'9P,-r63>r98?  r99—  r64>r99?  gsfo  "RANGER” 

wait  20CO.*  90b  "READER" 

r61 >r62?  r  6  0  >  r  6 1  ?  G L  N  1  r 9 U > r 6 0 ?  ■  j n p  -6 

i f  wax <  r 60 ?  r 6 1 ? r62 >  =  r 62 ?  j «p  2 

j  rip  5 

r 63->H ?  r64>V ?  gsb  " SOURCE  MOVER- 1 R " 

r98+  r63>  r 98?  r99+  r64>r99 ;  gsb  " RANGER" 

wait  2060? 9sb  "READER" 

r61>r60?  r62>r61  ?  Gt  N  ]r90+r62i  jpip  - 12 

if  r63=0?  Nip  2 

r63>  r64 ?  8> r6 3 ?  jap  -24 

r64'4>  r63?  0->r64?  next  0 

@*  r50 ?  0>r5  1  ?  O-  r52 

for  0=1  to  10 


7  ?  8  ?-  0  T  " 
7?  9?0T" 
?  10?  0T " 
7? 11?  0T 


V|vfc. 

O  "7 


229 

230 

231 


234 

235 
2  3  6 


240: 
241: 
242: 
243: 
244: 
245: 
246: 
247: 
243: 
249: 
256: 
251: 
252: 
253: 
254: 
255: 
256: 
257: 
253: 
259: 
266: 
261 : 
262: 
263: 
264: 
265: 
266 : 
267 : 
263 : 
269: 
270: 
271: 
272: 
273: 
274: 
275: 
276: 


■3s  b  “ READER" 

Gt  N  ]r90+  r50*r5@ Gt  H  ]  r90+Kt  0  3  5  GC  N  J r 9 1  *  r5 1  ^  r5 1 5  nex 

fnt  5»2/»  "Peak  rtv?<nw>  =">f 1@.0>  ”+**">  t'8.0 

f  o  r  O  =1  t  o  1 0 5  ( C  0  3  -  r  5  @  /  1  & )  1 2  +  r  5  2  ■*  r  5  2  5  n  e  x  x  0 

r‘50 10*Pt  L  ] »  r  <  r 52  ■  1 M  )  *Ct  L  3 

wrt  6. 5»  Rt  L  3»  CC  L  3 

ret 


"AREA  SAMPLER-WALL" : 0+r72?  0-»r735  0*r755  0*r5l  5  0+r5 
5+V5  -2*H5  -:sb  “SOURCE  MOVER-20R “ 
fnt  2j1-"j"  upper  sanples"  >  /  5  wrt  6.2 
fnt  3?flO.0»z 

f  o r  K=  1  t  ©  3 5  1  * r65 !  3-t  r66 5  1  •*  r675  1  *H 
i  f  f  rc  ( kV2  •'  =0  J 3 -* 5  5  1  -»  r  66  5  —  1  *  r67  j  —  1  -»M 
for  J=r65  to  r £ 6  by  r‘67 
9sb  “RANGER" 
wait  2000593b  "READER" 

w r t  6 . 3  ?  GC N  3  r 90 5  Gt N 3  r90+  r72 * r72 5  1 +  r73* r 73 
r9 1  +  r5 1  ■*  r5 1 5  Gt  N  3  r90+Xt  r73  3 
0+V5  ?sb  "SOURCE  MUVER-20R" 
next  J 

S*H5 -1 *V5  9sb  "SOURCE  MOVER- 20R" 
w ft  6  5 n e x t  K 

r75  i  1  •> r75 5  i  f  r 75 >=25  9t o  253 
N+2+N5  9Sb  "RANGER  RESET" 

-2+H5 -3+V5 osb  "SOURCE  M0VER-20R" 

-2*1-1;  - 3 v‘ 5  9sb  “SOURCE  MOVER-20R" 
fnt  4» 2/ > "  1  owe r  sanp 1 es " >  • 5  w rt  6 . 4 

9to  236 

f  nt  4 >  1  / >  "  awe  sowpI e=" « f  10.0 .< "  +- "  >  f  8 . 0 

for  0=1  to  r735 <Xt03-r72/r73>t2+r52*r525next  0 

r 72/ r73*r53 5  r5 1 / r 73+r ( r 52 / r 73 > * r 54 

wrt  6.4?r53jr54 

N+5*H5 ssb  "RANGER  RESET" 

ret 


"ALIGN/FOCUS" : 

dsn  "CONTINUE  if  reference  focused" 5 stP 
ret 


"RANGER  RESET": 

DC  N  3*C5  int  <C •- 16  >*  r3!  int  <  <C- 16r®>/3>*r  1 

int  ( <C-16r0-3r  1  *r£5  int  <  <C-l6r0-3r  l-4r2>/2 

i nt  ( C- 16 r0-8  r 1 -4 1  2-2  r3 ) * r4 

fnt  l»5fl.05fxd  05dsp  r@< r 1 • r2i r3? r4 

for  1=0  to  4 

if  r  1=05  l->r  1 5  jnp  2 

if  rl=150*rl  . 

next  I 

wrt  723 » "0B>  7"  <  ft*  r05  1  <  r  1  5  2  5  r2»  3 j  r'3>  4 '  r4  >  " T" 
ret 


r 
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cm  cm  cm  cm  oj  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  oj  cm  cm  o  cm  cm  cm  cm  cm  o  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  cm  * 


"AREA  SAMPLER-PEAK" :  0-r?75  0*r785  D*rS550*r56 
- 1  mH 5  i  fV ? esb  " SOURC. E  MOVER  -  IP" 
f  i-it  2  ■  t  / , "  Peak  So.riP  1  es “  ,  5  w rt  6 . 2 
f fit-  3»f  10.0>: 

for  K-l  to  3?  I*r5753*r585  1  »r595  i*H 
i  f  f  re  < K/2>  =0 5  3m  r57 5  1  ->  r58 5  - 1  * r59 }  - 1  -*H 
for  U=r57  to  r5S  by  r59 
osb  "RANGER" 
wait  208O5 ?sb  "READER" 

wrt  5. 3  j  G[  N  Dr 98 5  GC  N  3r90+r??*r7?5  1 1  r73*r?8 
r91+r55*r555  GC  N3r90*XC  r7S  3 
0*V5  ?sb  "SOURCE  MOVER- 1 R" 
next  J 

OmU 5  -1  mV 5  -9sb  "SOURCE  MOVER- 1 R " 
wrt  65 next  K 

N+Rmh? 9sb  "RANGER  RESET" 

f  i,i t  4  ,  1  •••'  j  "  ft1-..'-?  Peak  sariP  1  v- "  ,  f  1 U .  y  ,  "  +-  "  ,  f  8 .  0 

for  0=1  to  r?8!  <XC  0  3-r?7y'r78>t2+r5G+r565  next  0 

r 77/ r78M rS8 5 r55/r?3+r< r56/ r 78 > m  r69 

r68MRt L  ]! r69*CC L  ] 

w  r  t  6 . 4 ,  RC  L  3 ,  CC  L  3 

ret 


PLOT-PEAK  &  WALL  AREA  GRAPHS": 


-1  ■■ 

■-J  f- 

'•pcan 

>  u  i  w 

Y  P 

L 

OTT 

ER  FOR  PFRK 

GRAPH" 

5  stp 

int  ( 

rS0)M 

r85 

1 

int 

( r81 )Mr86 

scl 

rS5,  r 

86  j 

0 

,  1 5 

f  xd  0 

xax 

0,  1 1-  r 

85, 

r 

86 , 

15 Pit  (r85+r 

86  >  •/2  ? 

-.1,1 

csiz 

2,  2, 

1,0 

J 

lbl 

"WAVELENGTH 

f  x  d 

1  j  yax 

res 

, .  1 

,  @ ,  1 ,  1 5  p  1 1  r 

y  •  5  ? 

.5,15o 

1 b 1  "IR  OUTPUT" 

Pit  r85> 1 j -25 p1 t  r86> 1,-25  Pit  t*86,0, -25 sit  r80»0»l 
:vi a x ( R [  *  3) Mr 79 

for  1=1  to  L-ljPlt  MC I3»RC I3/r79»-25next  I 

dsp  "READY  PLOTTER  for  WALL  GRAPH" JstP 

for  1  =  1  to  L-ljPlt  WL I  3,  Rt  I 3EC I 3/r79, -25 next  I 


ret 

"ERROR  EAR": 

Pit  MC  I  3,  EC  I  3+ (SC  I  3— EC  I  3> »  -2 

pel  r!  cp  It  -.  33?  -  .  255  lbl  "-"Scplt  -.-€■?>.  25 

Pit  WCI3,ECn»-2 

Pit  WC  13?  EC  I  3- (EC  I  3— VC  I  3>,-2  ‘ 

pel r 5 cp It  33, -. 255  lbl  5cplt  -.67,. 25 

Pit  WCI3*ECI3»-2 


ret 

"  F'LOT-EM  I SS I V I  TV  GRAPH  " ! 

dsp  "READY  PLOTTER  FOR  EMISSIVITY  GRAPH"5stP 

for  1=1  to  L-l 

Pit  WC  I  3 ?  EC  I  3,-2 

3sb  "ERROR  BAR" 

next  I  , 

ret 
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